home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 July / WPCJUL98.ISO / DXRS / BUYERS07.DXR / Internal_7_toggle between reviews.ls < prev    next >
Encoding:
Text File  |  1998-05-11  |  496 b   |  19 lines
  1. on mouseUp
  2.   global memberDisplayed
  3.   set nChars to the number of chars in memberDisplayed
  4.   set lastChar to char nChars of memberDisplayed
  5.   delete char nChars of memberDisplayed
  6.   if lastChar = "f" then
  7.     put "c" after memberDisplayed
  8.   else
  9.     put "f" after memberDisplayed
  10.   end if
  11.   set currentLine to the text of member memberDisplayed of castLib "review_d"
  12.   showReviewInfo(currentLine)
  13.   if lastChar = "f" then
  14.     go("closeUp&feature2")
  15.   else
  16.     go("closeUp&feature1")
  17.   end if
  18. end
  19.